(print): sprintf arg for frame depends on VALBITS.

diff --git a/src/print.c b/src/print.c
index 27e66f98dac5a8f76ee8b74cd4310e60eb6e0778..f9572d69744f4185e9030eac7f5fe04dc9e60e9c 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -972,7 +972,10 @@ print (obj, printcharfun, escapeflag)
               ? "#<frame " : "#<dead frame "),
              -1, printcharfun);
       print_string (XFRAME (obj)->name, printcharfun);
-      sprintf (buf, " 0x%lx", (EMACS_UINT) (XFRAME (obj)));
+      if (sizeof (EMACS_INT) > 4)
+       sprintf (buf, " 0x%lx", (EMACS_UINT) (XFRAME (obj)));
+      else
+       sprintf (buf, " 0x%x", (EMACS_UINT) (XFRAME (obj)));
       strout (buf, -1, printcharfun);
       strout (">", -1, printcharfun);
       break;